home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / drivers / ljp3fw.arj / RASTER.PRG < prev    next >
Text File  |  1993-09-15  |  4KB  |  110 lines
  1.    #include "SET.CH"
  2.  
  3.    #include "FILEIO.CH"
  4.  
  5.    #include "ljprtiii.CH"
  6.  
  7.  
  8. /*
  9. ╔═══════════════════════════════════════════════════════════════════════════╗
  10. ║ Function..: RastTest()                                                    ║
  11. ║                                                                           ║
  12. ║ Purpose...:                                                               ║
  13. ║           :                                                               ║
  14. ║           :                                                               ║
  15. ║           :                                                               ║
  16. ║           :                                                               ║
  17. ║                                                                           ║
  18. ║                                                                           ║
  19. ║ Parameters:                                                               ║
  20. ║           :                                                               ║
  21. ║           :                                                               ║
  22. ║           :                                                               ║
  23. ║           :                                                               ║
  24. ║                                                                           ║
  25. ║ Returns...: nil                                                           ║
  26. ║                                                                           ║
  27. ╚═══════════════════════════════════════════════════════════════════════════╝
  28. */
  29.  
  30.  
  31. function RastTest()
  32.  
  33.    local cS     := ""
  34.    local nI     := 0
  35.    local nII    := 0
  36.    local nIII   := 0
  37.    local nbytes := 0
  38.  
  39.    local aRast := { ;
  40.          {   0 ,   0 ,  0 , 128 ,   0 } , ;
  41.          {   0 ,   0 ,  0 , 192 ,   0 } , ;
  42.          {   0 ,   0 ,  0 , 224 ,   0 } , ;
  43.          {   0 ,   0 ,  0 , 240 ,   0 } , ;
  44.          {   0 ,   0 ,  0 , 248 ,   0 } , ;
  45.          {   0 ,   0 ,  0 , 252 ,   0 } , ;
  46.          {   0 ,   0 ,  0 , 254 ,   0 } , ;
  47.          {   0 ,   0 ,  0 , 255 ,   0 } , ;
  48.          {   0 ,   0 ,  0 , 255 , 128 } , ;
  49.          { 255 , 255 ,255 , 255 , 192 } , ;
  50.          { 255 , 255 ,255 , 255 , 224 } , ;
  51.          { 255 , 255 ,255 , 255 , 240 } , ;
  52.          { 255 , 255 ,255 , 255 , 248 } , ;
  53.          { 255 , 255 ,255 , 255 , 252 } , ;
  54.          { 255 , 255 ,255 , 255 , 254 } , ;
  55.          { 255 , 255 ,255 , 255 , 255 } , ;
  56.          { 255 , 255 ,255 , 255 , 255 } , ;
  57.          { 255 , 255 ,255 , 255 , 254 } , ;
  58.          { 255 , 255 ,255 , 255 , 252 } , ;
  59.          { 255 , 255 ,255 , 255 , 248 } , ;
  60.          { 255 , 255 ,255 , 255 , 240 } , ;
  61.          { 255 , 255 ,255 , 255 , 224 } , ;
  62.          { 255 , 255 ,255 , 255 , 192 } , ;
  63.          {   0 ,   0 ,  0 , 255 , 128 } , ;
  64.          {   0 ,   0 ,  0 , 255 ,   0 } , ;
  65.          {   0 ,   0 ,  0 , 254 ,   0 } , ;
  66.          {   0 ,   0 ,  0 , 252 ,   0 } , ;
  67.          {   0 ,   0 ,  0 , 248 ,   0 } , ;
  68.          {   0 ,   0 ,  0 , 240 ,   0 } , ;
  69.          {   0 ,   0 ,  0 , 224 ,   0 } , ;
  70.          {   0 ,   0 ,  0 , 192 ,   0 } , ;
  71.          {   0 ,   0 ,  0 , 128 ,   0 }   ;
  72.          }
  73.  
  74.  
  75.    @ 0,0 clear
  76.  
  77.    for nI = 1 to 4
  78.       do case
  79.       case nI == 1
  80.          LJ_Send_NC( ESC + "*p300x400Y" )
  81.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_300 )
  82.  
  83.       case nI == 2
  84.          LJ_Send_NC( ESC + "*p400x375Y" )
  85.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_150 )
  86.  
  87.       case nI == 3
  88.          LJ_Send_NC( ESC + "*p500x350Y" )
  89.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_100 )
  90.  
  91.       case nI == 4
  92.          LJ_Send_NC( ESC + "*p700x300Y" )
  93.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_75 )
  94.       endcase
  95.  
  96. //    LJ_RastSet( START_RASTER_GRAPHICS , LEFT_MARGIN_X_0  )
  97.       LJ_RastSet( START_RASTER_GRAPHICS , LEFT_MARGIN_X_CURRENT )
  98.       LJ_RastSet( PRESENTATION_MODE, LOGICAL_PAGE_MODE  )
  99.  
  100.       LJ_RasTran( aRast )
  101.  
  102.       LJ_RastSet( END_RASTER_GRAPHICS   )
  103.  
  104.    next nI
  105.  
  106. // lj_send_nc( ESC + "E" )
  107.  
  108.  
  109.    return nil
  110.